﻿Public Class xtf_LISTADOpoliza_

    Public Overrides Sub IniciarLista()
        Try
            gdc_general.BeginUpdate()
            gdc_general.DataSource = dtt_DataTable
            'ulg_Lista.DisplayLayout.GroupByBox.Style = Infragistics.Win.UltraWinGrid.GroupByBoxStyle.Full

            'Creacion y carga de Cuentas
            dtt_DataTable.Columns.Add("Identificador (ID)")
            dtt_DataTable.Columns.Add("Nro. de Poliza")
            dtt_DataTable.Columns.Add("Cliente")
            dtt_DataTable.Columns.Add("Riesgo")
            dtt_DataTable.Columns.Add("Compañia")
            dtt_DataTable.Columns.Add("Cant. Cuotas")
            dtt_DataTable.Columns.Add("Importe Total")
            dtt_DataTable.Columns.Add("Importe Cuota")
            dtt_DataTable.Columns.Add("Obs.")
            dtt_DataTable.Columns.Add("Observaciones")

            gdv_general.PopulateColumns(dtt_DataTable)

            Dim obj_poliza_ As New cls_poliza_
            If obj_poliza_.CargarTodos(ObtenerRegistroEstado) Then
                For Each poliza As cls_poliza_ In obj_poliza_.Items
                    AgregarItem(poliza)
                Next
            End If
            'ulg_Lista.DataBind()

            FiltrarColumnas()
            gdc_general.EndUpdate()
        Catch ex As Exception
            'Dim frmError As New frm_ErrorManager(ex.Message)
        End Try
    End Sub

    Public Function AgregarItem(ByRef poliza As cls_poliza_) As DataRow
        Dim Row As DataRow = dtt_DataTable.NewRow
        Row("Identificador (ID)") = poliza.idpoliza
        Row("Nro. de Poliza") = poliza.numero
        If Not IsNothing(poliza.cliente) Then
            Row("Cliente") = poliza.cliente.TerceroNombre
        Else
            Row("Cliente") = ""
        End If
        If Not IsNothing(poliza.riesgo) Then
            Row("Riesgo") = poliza.riesgo.ToString
        Else
            Row("Riesgo") = ""
        End If
        If Not IsNothing(poliza.proveedor) Then
            Row("Compañia") = poliza.proveedor.ToString
        Else
            Row("Compañia") = ""
        End If
        Row("Cant. Cuotas") = poliza.cuotas
        Row("Importe Total") = poliza.importe
        Row("Importe Cuota") = poliza.importecuota
        Row("Obs.") = poliza.obs
        Row("Observaciones") = poliza.observaciones

        dtt_DataTable.Rows.Add(Row)
        'ulg_Lista.Rows(ulg_Lista.Rows.Count - 1).Height = 19
        Return Row
    End Function

    Public Sub ModificarItem(ByRef poliza As cls_poliza_, ByRef ulg_row As DataRow)
        ulg_row("Identificador (ID)") = poliza.idpoliza
        ulg_row("Nro. de Poliza") = poliza.numero
        If Not IsNothing(poliza.cliente) Then
            ulg_row("Cliente") = poliza.cliente.TerceroNombre
        Else
            ulg_row("Cliente") = ""
        End If
        If Not IsNothing(poliza.riesgo) Then
            ulg_row("Riesgo") = poliza.riesgo.ToString
        Else
            ulg_row("Riesgo") = ""
        End If
        If Not IsNothing(poliza.proveedor) Then
            ulg_row("Compañia") = poliza.proveedor.ToString
        Else
            ulg_row("Compañia") = ""
        End If
        ulg_row("Cant. Cuotas") = poliza.cuotas
        ulg_row("Importe Total") = poliza.importe
        ulg_row("Importe Cuota") = poliza.importecuota
        ulg_row("Obs.") = poliza.obs
        ulg_row("Observaciones") = poliza.observaciones
    End Sub

    Public Sub New()

        Me.Cursor = Cursors.WaitCursor
        InitializeComponent()
        PERMISONuevo = "011001002"
        PERMISOModificar = "011001003"
        PERMISOEliminar = "011001004"
        PERMISOImprimir = "011001005"
        Me.Text = lbl_modulo.Text
        IniciarLista()
        Me.Cursor = Cursors.Default

    End Sub
End Class